#!/usr/bin/perl
use strict;
use warnings FATAL => 'all';
use utf8;

sub max {
    if($_[0] > $_[1]) {
        $_[0];
    } else {
        $_[1];
    }
}

my $a = &max(213,11);
print $a;



